home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / SYS FINDER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  99 lines
  1. 10 REM ********************************
  2. 12 REM *      <<< SYS FINDER >>>      *
  3. 14 REM *          ----------          *
  4. 16 REM *                              *
  5. 18 REM * BY: ROBERT E. TAYLOR         *
  6. 20 REM *     210 DURSO DRIVE          *
  7. 22 REM *     NEWARK, DEL 19711        *
  8. 24 REM *      (302) 738-3430          *
  9. 26 REM *                              *
  10. 28 REM * THIS PROGRAM IS FOR THE      *
  11. 30 REM * FOLKS AT NCUG AND ALSO       *
  12. 32 REM * FOR ALL OTHER COMMODORE      *
  13. 34 REM * USERS AND IS IN THE          *
  14. 36 REM * PUBLIC DOMAIN FOR ALL.       *
  15. 38 REM *                              *
  16. 40 REM *                              *
  17. 42 REM * IF THERE ARE ANY QUESTIONS   *
  18. 44 REM * PLEASE CONTACT ABOVE. IF IT  *
  19. 46 REM * DOES NOT WORK THEN FIX IT!   *
  20. 48 REM *                              *
  21. 50 REM * NOTE: IF YOU ENTER A 'PRG'   *
  22. 52 REM *       TYPE FILE FROM         *
  23. 54 REM *       A WORD PROCESSER THEN  *
  24. 56 REM *       THESE WILL NOT "RUN"   *
  25. 58 REM *       EVEN THOUGH THE LOAD   *
  26. 60 REM *       ADDRESS IS 2049 AND    *
  27. 62 REM *       THE MESSAGE SAYS THEY  *
  28. 64 REM *       ARE BASIC PROGRAMS.    *
  29. 66 REM *                              *
  30. 68 REM *   THE COMMODORE CONNECTION   *
  31. 69 REM *    713-486-5087/ 24 HOURS    *
  32. 70 REM ********************************
  33. 100 POKE53280,9:POKE53281,1:POKE646,5
  34. 110 PRINT"[147]INTIALIZING DRIVE"
  35. 120 OPEN15,8,15,"I0":CLOSE15
  36. 130 PRINT"[147]           ******************"
  37. 140 PRINT"           *** SYS FINDER ***"
  38. 150 PRINT"           *** [183][183][183][183][183][183][183][183][183][183] ***"
  39. 160 PRINT"           *** [183][183][169]    [223][183][183] ***"
  40. 170 PRINT"           ***     BY     ***"
  41. 180 PRINT"           *** BOB TAYLOR ***"
  42. 190 PRINT"           ******************"
  43. 200 PRINT"[152]    IF YOU EVER FORGET THE SYS THEN"
  44. 210 PRINT"    THIS PROGRAM WILL BE OF HELP."
  45. 220 PRINT"     THIS PROGRAM GIVES YOU THE SYS
  46. 230 [153]"        NUMBER YOU NEED TO RUN A
  47. 240 PRINT"        MACHINE LANGUAGE PROGRAM."
  48. 250 PRINT"[151]     IT WILL ALSO TELL YOU IF THE
  49. 260 [153]"    PROGRAM IS JUST A BASIC PROGRAM."
  50. 270 [153]"   ENTER PROGRAM NAME AND HIT RETURN"
  51. 280 FLAG[178]0:PN$[178]"":[133]"  PROGRAM NAME:";PN$
  52. 290 [141] 550
  53. 300 [139] FLAG[178]1[167]120
  54. 310 [159]1,8,2,PN$[170]",P,R"
  55. 320 [141]570:[139] FLAG[178]1[167]490
  56. 330 [161]#1,X$:[139]X$[178]""[167]X$[178][199](0)
  57. 340 LB[178][198](X$)
  58. 350 [161]#1,X$:[139]X$[178]""[167]X$[178][199](0)
  59. 360 HB[178][198](X$)
  60. 370 [160]1:[160]15
  61. 380 AD[178]HB[172]256[170]LB
  62. 390 [139]AD[179][177]2049[167]450
  63. 400 [153]"LOAD PRINT#THE LOAD ADDRESS FOR: ";PN$
  64. 410 [153]"                      IS ";AD
  65. 420 [153]"POKE THIS IS A  BASIC WAIT PROGRAM AND IS TO BE"
  66. 430 [153]" LOADED AND RUN IN NORMAL WAY."
  67. 440 [137]490
  68. 450 [153]"LOAD PRINT#THE LOAD ADDRESS FOR: ";PN$
  69. 460 [153]"                      IS ";AD
  70. 470 [153]"POKE THIS IS THE SYS NUMBER YOU NEED FOR"
  71. 480 [153]" THIS MACHINE LANGUAGE PROGRAM."
  72. 490 [153]" DO YOU WANT TO TRY ANOTHER (Y/N)"
  73. 500 [161]A$:[139]A$[178]""[167]500
  74. 510 [139]A$[178]"Y"[167]120
  75. 520 [139]A$[178]"N"[167]540
  76. 530 [139]A$[179][177]"Y"[176]A$[179][177]"N"[167]500
  77. 540 [137]63000
  78. 550 [139][195](PN$)[179]1[176][195](PN$)[177]16[167][153]"              INVALID NAME":FLAG[178]1
  79. 560 [129]X[178]1[164]2000:[130]:[142]
  80. 570 [159]15,8,15
  81. 580 [132]15,EN,EM$,T,S
  82. 590 [139]EN[178]0[167][142]
  83. 600 [153]"LOAD ERROR MESSAGE"
  84. 610 [153]" FOR PROGRAM NAME:";PN$
  85. 620 [153]"";EN;EM$;T;S
  86. 630 [153]"PRINT# CHECK SPELLING IF YOU GOT"
  87. 640 [153]" FILE NOT FOUND"
  88. 650 [153]" IF ERROR IS FILE TYPE MISMATCH"
  89. 660 [153]" THEN THAT NAME IS FOR A SEQ, USR"
  90. 670 [153]" OR REL FILE."
  91. 680 [153]"POKE ANY OTHER ERROR INDICATES THAT"
  92. 690 [153]" SOMETHING IS WRONG!"
  93. 700 [153]" CHECK YOUR MANUAL IF YOU ARE NOT"
  94. 710 [153]" SURE WHAT THE MESSAGE MEANS."
  95. 720 [160]1:[160]15:FLAG[178]1:[142]
  96. 63000 [143]     LINK BACK
  97. 63010 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
  98. 63020 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]
  99.